home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / ijc / ijc.bst < prev    next >
Text File  |  1993-08-02  |  18KB  |  978 lines
  1. % BibTeX bibliography style `ICJ'
  2.     % version 0.99a for BibTeX versions 0.99a or later, LaTeX version 2.09.
  3.     % Copyright (C) 1985, all rights reserved.
  4.     % Copying of this file is authorized only if either
  5.     % (1) you make absolutely no changes to your copy, including name, or
  6.     % (2) if you do make changes, you name it something other than
  7.     % btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
  8.     % This restriction helps ensure that all standard styles are identical.
  9.     % The file btxbst.doc has the documentation for this style.    
  10.     % Modified from unsrt.bib by Silvano Balemi balemi@aut.ee.ethz.ch for
  11.     % articles in International Journal of Control        5.June.91 
  12.  
  13. ENTRY
  14.   { address
  15.     author
  16.     booktitle
  17.     chapter
  18.     edition
  19.     editor
  20.     howpublished
  21.     institution
  22.     journal
  23.     key
  24.     month
  25.     note
  26.     number
  27.     organization
  28.     pages
  29.     publisher
  30.     school
  31.     series
  32.     title
  33.     type
  34.     volume
  35.     year
  36.   }
  37.   {}
  38.   { label }
  39.  
  40. INTEGERS { output.state before.all mid.sentence after.sentence after.block }
  41.  
  42. FUNCTION {init.state.consts}
  43. { #0 'before.all :=
  44.   #1 'mid.sentence :=
  45.   #2 'after.sentence :=
  46.   #3 'after.block :=
  47. }
  48.  
  49. STRINGS { s t }
  50.  
  51. FUNCTION {output.nonnull}
  52. { 's :=
  53.   output.state mid.sentence =
  54.     { ", " * write$ }
  55.     { output.state after.block =
  56. % next line commented out by rhr and changed to write comma
  57. %    { add.period$ write$
  58.     { ", " * write$ 
  59.       newline$
  60.       "\newblock " write$
  61.     }
  62.     { output.state before.all =
  63.         'write$
  64.         { add.period$ " " * write$ }
  65.       if$
  66.     }
  67.       if$
  68.       mid.sentence 'output.state :=
  69.     }
  70.   if$
  71.   s
  72. }
  73.  
  74. FUNCTION {output}
  75. { duplicate$ empty$
  76.     'pop$
  77.     'output.nonnull
  78.   if$
  79. }
  80.  
  81. FUNCTION {output.check}
  82. { 't :=
  83.   duplicate$ empty$
  84.     { pop$ "empty " t * " in " * cite$ * warning$ }
  85.     'output.nonnull
  86.   if$
  87. }
  88.  
  89.  
  90. FUNCTION {output.bibitem}
  91. { 
  92.   newline$
  93.   "\bibitem[" write$
  94.    year write$ 
  95.  "]{" write$
  96.   cite$ write$
  97.   "}" write$
  98.   newline$
  99.   ""
  100.   before.all 'output.state :=
  101. }
  102.  
  103. FUNCTION {fin.entry}
  104. { add.period$
  105.   write$
  106.   newline$
  107. }
  108.  
  109. % 5/24/89 rhr
  110. %  modified fin.entry function - prints note field after body of entry  
  111. %FUNCTION {fin.entry}
  112. %{ add.period$
  113. %  note empty$
  114. %    'write$
  115. %    { "\par\bgroup\parindent=0em  " * annote * "\par\egroup " * write$
  116. %    }
  117. %  if$
  118. %  newline$
  119. %}
  120.  
  121. FUNCTION {new.block}
  122. { output.state before.all =
  123.     'skip$
  124.     { after.block 'output.state := }
  125.   if$
  126. }
  127.  
  128. FUNCTION {new.sentence}
  129. { output.state after.block =
  130.     'skip$
  131.     { output.state before.all =
  132.     'skip$
  133.     { after.sentence 'output.state := }
  134.       if$
  135.     }
  136.   if$
  137. }
  138.  
  139. FUNCTION {not}
  140. {   { #0 }
  141.     { #1 }
  142.   if$
  143. }
  144.  
  145. FUNCTION {and}
  146. {   'skip$
  147.     { pop$ #0 }
  148.   if$
  149. }
  150.  
  151. FUNCTION {or}
  152. {   { pop$ #1 }
  153.     'skip$
  154.   if$
  155. }
  156.  
  157. FUNCTION {new.block.checka}
  158. { empty$
  159.     'skip$
  160.     'new.block
  161.   if$
  162. }
  163.  
  164. FUNCTION {new.block.checkb}
  165. { empty$
  166.   swap$ empty$
  167.   and
  168.     'skip$
  169.     'new.block
  170.   if$
  171. }
  172.  
  173. FUNCTION {new.sentence.checka}
  174. { empty$
  175.     'skip$
  176.     'new.sentence
  177.   if$
  178. }
  179.  
  180. FUNCTION {new.sentence.checkb}
  181. { empty$
  182.   swap$ empty$
  183.   and
  184.     'skip$
  185.     'new.sentence
  186.   if$
  187. }
  188.  
  189. FUNCTION {field.or.null}
  190. { duplicate$ empty$
  191.     { pop$ "" }
  192.     'skip$
  193.   if$
  194. }
  195.  
  196. FUNCTION {emphasize}
  197. { duplicate$ empty$
  198.     { pop$ "" }
  199.     { "{\em " swap$ * "}" * }
  200.   if$
  201. }
  202.  
  203. FUNCTION {boldface}
  204. { duplicate$ empty$
  205.     { pop$ "" }
  206.     { "{\bf " swap$ * "}" * }
  207.   if$
  208. }
  209.  
  210. %FUNCTION {boldface}
  211. %{ 's swap$ :=
  212. %  s "" =
  213. %    { "" }
  214. %    { "{\bf " s * "}" * }
  215. %  if$
  216. %}
  217. %
  218. INTEGERS { nameptr namesleft numnames }
  219.  
  220.  
  221. FUNCTION {format.names}
  222. { 's :=
  223.   #1 'nameptr :=
  224.   s num.names$ 'numnames :=
  225.   numnames 'namesleft :=
  226.     { namesleft #0 > }
  227.     { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't :=
  228.       nameptr #1 >
  229.     { namesleft #1 >
  230.     { ", " * t * }
  231.         { numnames #2 >
  232.         { "" * }
  233.         'skip$
  234.           if$
  235.           t "others" =
  236.         { " {\rm et~al.}" * }
  237.         { " {\rm and} " * t * }
  238.           if$
  239.         }
  240.       if$
  241.     }
  242.     't
  243.       if$
  244.       nameptr #1 + 'nameptr :=
  245.       namesleft #1 - 'namesleft :=
  246.     }
  247.   while$
  248. }
  249.  
  250. FUNCTION {format.date}
  251. { year empty$
  252.     'year 
  253.     {" " year *}
  254.   if$
  255. }
  256.  
  257. FUNCTION {format.authors}
  258. { author empty$
  259.     { "" }
  260.     { "{\sc " * author format.names "}" * }
  261.   if$
  262. }
  263.  
  264. FUNCTION {format.editors}
  265. { editor empty$
  266.     { "" }
  267.     { editor format.names
  268.       editor num.names$ #1 >
  269.     { ", editors" * }
  270.     { ", editor" * }
  271.       if$
  272.     }
  273.   if$
  274. }
  275.  
  276. FUNCTION {format.title}
  277. { title empty$
  278.     { "" }
  279.     { title "t" change.case$ }
  280.   if$
  281. }
  282.  
  283. FUNCTION {n.dashify}
  284. { 't :=
  285.   ""
  286.     { t empty$ not }
  287.     { t #1 #1 substring$ "-" =
  288.     { t #1 #2 substring$ "--" = not
  289.         { "--" *
  290.           t #2 global.max$ substring$ 't :=
  291.         }
  292.         {   { t #1 #1 substring$ "-" = }
  293.         { "-" *
  294.           t #2 global.max$ substring$ 't :=
  295.         }
  296.           while$
  297.         }
  298.       if$
  299.     }
  300.     { t #1 #1 substring$ *
  301.       t #2 global.max$ substring$ 't :=
  302.     }
  303.       if$
  304.     }
  305.   while$
  306. }
  307.  
  308. FUNCTION {format.btitle}
  309. { title emphasize
  310. }
  311.  
  312. FUNCTION {tie.or.space.connect}
  313. { duplicate$ text.length$ #3 <
  314.     { "~" }
  315.     { " " }
  316.   if$
  317.   swap$ * *
  318. }
  319.  
  320. FUNCTION {either.or.check}
  321. { empty$
  322.     'pop$
  323.     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  324.   if$
  325. }
  326.  
  327. FUNCTION {format.bvolume}
  328. { volume empty$
  329.     { "" }
  330.     { "volume" volume tie.or.space.connect
  331.       series empty$
  332.     'skip$
  333.     { " of " * series emphasize * }
  334.       if$
  335.       "volume and number" number either.or.check
  336.     }
  337.   if$
  338. }
  339.  
  340. FUNCTION {format.number.series}
  341. { volume empty$
  342.     { number empty$
  343.     { series field.or.null }
  344.     { output.state mid.sentence =
  345.         { "number" }
  346.         { "Number" }
  347.       if$
  348.       number tie.or.space.connect
  349.       series empty$
  350.         { "there's a number but no series in " cite$ * warning$ }
  351.         { " in " * series * }
  352.       if$
  353.     }
  354.       if$
  355.     }
  356.     { "" }
  357.   if$
  358. }
  359.  
  360. FUNCTION {format.edition}
  361. { edition empty$
  362.     { "" }
  363.     { output.state mid.sentence =
  364.     { edition "l" change.case$ " edition" * }
  365.     { edition "t" change.case$ " edition" * }
  366.       if$
  367.     }
  368.   if$
  369. }
  370.  
  371. INTEGERS { multiresult }
  372.  
  373. FUNCTION {multi.page.check}
  374. { 't :=
  375.   #0 'multiresult :=
  376.     { multiresult not
  377.       t empty$ not
  378.       and
  379.     }
  380.     { t #1 #1 substring$
  381.       duplicate$ "-" =
  382.       swap$ duplicate$ "," =
  383.       swap$ "+" =
  384.       or or
  385.     { #1 'multiresult := }
  386.     { t #2 global.max$ substring$ 't := }
  387.       if$
  388.     }
  389.   while$
  390.   multiresult
  391. }
  392.  
  393. FUNCTION {format.pages}
  394. { pages empty$
  395.     { "" }
  396.     { pages multi.page.check
  397.     { "pages" pages n.dashify tie.or.space.connect }
  398.     { "page" pages tie.or.space.connect }
  399.       if$
  400.     }
  401.   if$
  402. }
  403.  
  404. FUNCTION {format.vol.num.pages}
  405. %boldface added 3/17/87 rhr and removed for chem sty 9/9/89
  406. %{ volume field.or.null boldface
  407. { volume field.or.null 
  408.   number empty$
  409.     'skip$
  410.     { "(" number * ")" * *
  411.       volume empty$
  412.     { "there's a number but no volume in " cite$ * warning$ }
  413.     'skip$
  414.       if$
  415.     }
  416.   if$
  417.   pages empty$
  418.     'skip$
  419.     { duplicate$ empty$
  420.     { pop$ format.pages }
  421.     { ", " * pages n.dashify * }
  422.       if$
  423.     }
  424.   if$
  425. }
  426.  
  427. FUNCTION {format.chapter.pages}
  428. { chapter empty$
  429.     'format.pages
  430.     { type empty$
  431.     { "chapter" }
  432.     { type "l" change.case$ }
  433.       if$
  434.       chapter tie.or.space.connect
  435.       pages empty$
  436.     'skip$
  437.     { ", " * format.pages * }
  438.       if$
  439.     }
  440.   if$
  441. }
  442.  
  443. FUNCTION {format.in.ed.booktitle}
  444. { booktitle empty$
  445.     { "" }
  446.     { editor empty$
  447.     { "In " booktitle emphasize * }
  448.     { "In " format.editors * ", " * booktitle emphasize * }
  449.       if$
  450.     }
  451.   if$
  452. }
  453.  
  454. FUNCTION {empty.misc.check}
  455. { author empty$ title empty$ howpublished empty$
  456.   month empty$ year empty$ note empty$
  457.   and and and and and
  458.     { "all relevant fields are empty in " cite$ * warning$ }
  459.     'skip$
  460.   if$
  461. }
  462.  
  463. FUNCTION {format.thesis.type}
  464. { type empty$
  465.     'skip$
  466.     { pop$
  467.       type "t" change.case$
  468.     }
  469.   if$
  470. }
  471.  
  472. FUNCTION {format.tr.number}
  473. { type empty$
  474.     { "Technical Report" }
  475.     'type
  476.   if$
  477.   number empty$
  478.     { "t" change.case$ }
  479.     { number tie.or.space.connect }
  480.   if$
  481. }
  482.  
  483. FUNCTION {format.article.crossref}
  484. { key empty$
  485.     { journal empty$
  486.     { "need key or journal for " cite$ * " to crossref " * crossref *
  487.       warning$
  488.       ""
  489.     }
  490.     { "In {\em " journal * "\/}" * }
  491.       if$
  492.     }
  493.     { "In " key * }
  494.   if$
  495.   " \cite{" * crossref * "}" *
  496. }
  497.  
  498. FUNCTION {format.crossref.editor}
  499. { editor #1 "{vv~}{ll}" format.name$
  500.   editor num.names$ duplicate$
  501.   #2 >
  502.     { pop$ " et~al." * }
  503.     { #2 <
  504.     'skip$
  505.     { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  506.         { " et~al." * }
  507.         { " and " * editor #2 "{vv~}{ll}" format.name$ * }
  508.       if$
  509.     }
  510.       if$
  511.     }
  512.   if$
  513. }
  514.  
  515. FUNCTION {format.book.crossref}
  516. { volume empty$
  517.     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
  518.       "In "
  519.     }
  520.     { "Volume" volume tie.or.space.connect
  521.       " of " *
  522.     }
  523.   if$
  524.   editor empty$
  525.   editor field.or.null author field.or.null =
  526.   or
  527.     { key empty$
  528.     { series empty$
  529.         { "need editor, key, or series for " cite$ * " to crossref " *
  530.           crossref * warning$
  531.           "" *
  532.         }
  533.         { "{\em " * series * "\/}" * }
  534.       if$
  535.     }
  536.     { key * }
  537.       if$
  538.     }
  539.     { format.crossref.editor * }
  540.   if$
  541.   " \cite{" * crossref * "}" *
  542. }
  543.  
  544. FUNCTION {format.incoll.inproc.crossref}
  545. { editor empty$
  546.   editor field.or.null author field.or.null =
  547.   or
  548.     { key empty$
  549.     { booktitle empty$
  550.         { "need editor, key, or booktitle for " cite$ * " to crossref " *
  551.           crossref * warning$
  552.           ""
  553.         }
  554.         { "In {\em " booktitle * "\/}" * }
  555.       if$
  556.     }
  557.     { "In " key * }
  558.       if$
  559.     }
  560.     { "In " format.crossref.editor * }
  561.   if$
  562.   " \cite{" * crossref * "}" *
  563. }
  564.  
  565. FUNCTION {article}
  566. { output.bibitem
  567.   format.authors "author" output.check
  568.   format.date "year" output.check
  569.   new.block
  570.   format.title "title" output.check
  571.   new.block
  572.   crossref missing$
  573.     { journal emphasize "journal" output.check
  574.       format.vol.num.pages output
  575.     }
  576.     { format.article.crossref output.nonnull
  577.       format.pages output
  578.     }
  579.   if$
  580.   new.block
  581.   note output
  582.   fin.entry
  583. }
  584.  
  585. FUNCTION {book}
  586. { output.bibitem
  587.   author empty$
  588.     { format.editors "author and editor" output.check }
  589.     { format.authors output.nonnull
  590.       crossref missing$
  591.     { "author and editor" editor either.or.check }
  592.     'skip$
  593.       if$
  594.     }
  595.   if$
  596.   format.date "year" output.check
  597.   new.block
  598.   format.btitle "title" output.check
  599.   crossref missing$
  600.     { format.bvolume output
  601.       new.block
  602.       format.number.series output
  603.       new.sentence
  604.       publisher "publisher" output.check
  605.       address output
  606.     }
  607.     { new.block
  608.       format.book.crossref output.nonnull
  609.     }
  610.   if$
  611.   format.edition output
  612.   new.block
  613.   note output
  614.   fin.entry
  615. }
  616.  
  617. FUNCTION {booklet}
  618. { output.bibitem
  619.   format.authors output
  620.   new.block
  621.   format.title "title" output.check
  622.   howpublished address new.block.checkb
  623.   howpublished output
  624.   address output
  625.   format.date output
  626.   new.block
  627.   note output
  628.   fin.entry
  629. }
  630.  
  631. FUNCTION {inbook}
  632. { output.bibitem
  633.   author empty$
  634.     { format.editors "author and editor" output.check }
  635.     { format.authors output.nonnull
  636.       crossref missing$
  637.     { "author and editor" editor either.or.check }
  638.     'skip$
  639.       if$
  640.     }
  641.   if$
  642.   format.date "year" output.check
  643.   new.block
  644.   format.btitle "title" output.check
  645.   crossref missing$
  646.     { format.bvolume output
  647.       format.chapter.pages "chapter and pages" output.check
  648.       new.block
  649.       format.number.series output
  650.       new.sentence
  651.       publisher "publisher" output.check
  652.       address output
  653.     }
  654.     { format.chapter.pages "chapter and pages" output.check
  655.       new.block
  656.       format.book.crossref output.nonnull
  657.     }
  658.   if$
  659.   format.edition output
  660.   new.block
  661.   note output
  662.   fin.entry
  663. }
  664.  
  665. FUNCTION {incollection}
  666. { output.bibitem
  667.   format.authors "author" output.check
  668.   new.block
  669.   format.title "title" output.check
  670.   new.block
  671.   crossref missing$
  672.     { format.in.ed.booktitle "booktitle" output.check
  673.       format.bvolume output
  674.       format.number.series output
  675.       format.chapter.pages output
  676.       new.sentence
  677.       publisher "publisher" output.check
  678.       address output
  679.       format.edition output
  680.       format.date "year" output.check
  681.     }
  682.     { format.incoll.inproc.crossref output.nonnull
  683.       format.chapter.pages output
  684.     }
  685.   if$
  686.   new.block
  687.   note output
  688.   fin.entry
  689. }
  690.  
  691. FUNCTION {inproceedings}
  692. { output.bibitem
  693.   format.authors "author" output.check
  694.   format.date "year" output.check
  695.   new.block
  696.   format.title "title" output.check
  697.   new.block
  698.   crossref missing$
  699.     { format.in.ed.booktitle "booktitle" output.check
  700.       format.bvolume output
  701.       format.number.series output
  702.       format.pages output
  703.       address empty$
  704.     { organization publisher new.sentence.checkb
  705.       organization output
  706.       publisher output
  707.     }
  708.     { address output.nonnull
  709.       new.sentence
  710.       organization output
  711.       publisher output
  712.     }
  713.       if$
  714.     }
  715.     { format.incoll.inproc.crossref output.nonnull
  716.       format.pages output
  717.     }
  718.   if$
  719.   new.block
  720.   note output
  721.   fin.entry
  722. }
  723.  
  724. FUNCTION {conference} { inproceedings }
  725.  
  726. FUNCTION {manual}
  727. { output.bibitem
  728.   author empty$
  729.     { organization empty$
  730.     'skip$
  731.     { organization output.nonnull
  732.       address output
  733.     }
  734.       if$
  735.     }
  736.     { format.authors output.nonnull }
  737.   if$
  738.   format.date "year" output
  739.   new.block
  740.   format.btitle "title" output.check
  741.   author empty$
  742.     { organization empty$
  743.     { address new.block.checka
  744.       address output
  745.     }
  746.     'skip$
  747.       if$
  748.     }
  749.     { organization address new.block.checkb
  750.       organization output
  751.       address output
  752.     }
  753.   if$
  754.   format.edition output
  755.   new.block
  756.   note output
  757.   fin.entry
  758. }
  759.  
  760. FUNCTION {mastersthesis}
  761. { output.bibitem
  762.   format.authors "author" output.check
  763.   format.date "year" output.check
  764.   new.block
  765.   format.title "title" output.check
  766.   new.block
  767.   "Master's thesis" format.thesis.type output.nonnull
  768.   school "school" output.check
  769.   address output
  770.   new.block
  771.   note output
  772.   fin.entry
  773. }
  774.  
  775. FUNCTION {misc}
  776. { output.bibitem
  777.   format.authors output
  778.   format.date "year" output.check
  779.   title howpublished new.block.checkb
  780.   format.title output
  781.   howpublished new.block.checka
  782.   howpublished output
  783.   new.block
  784.   note output
  785.   fin.entry
  786.   empty.misc.check
  787. }
  788.  
  789. FUNCTION {phdthesis}
  790. { output.bibitem
  791.   format.authors "author" output.check
  792.   format.date "year" output.check
  793.   new.block
  794.   format.btitle "title" output.check
  795.   new.block
  796.   "PhD thesis" format.thesis.type output.nonnull
  797.   school "school" output.check
  798.   address output
  799.   new.block
  800.   note output
  801.   fin.entry
  802. }
  803.  
  804. FUNCTION {proceedings}
  805. { output.bibitem
  806.   editor empty$
  807.     { organization output }
  808.     { format.editors output.nonnull }
  809.   if$
  810.       format.date "year" output.check
  811.   new.block
  812.   format.btitle "title" output.check
  813.   format.bvolume output
  814.   format.number.series output
  815.   address empty$
  816.     { editor empty$
  817.     { publisher new.sentence.checka }
  818.     { organization publisher new.sentence.checkb
  819.       organization output
  820.     }
  821.       if$
  822.       publisher output
  823.     }
  824.     { address output.nonnull
  825.       new.sentence
  826.       editor empty$
  827.     'skip$
  828.     { organization output }
  829.       if$
  830.       publisher output
  831.     }
  832.   if$
  833.   new.block
  834.   note output
  835.   fin.entry
  836. }
  837.  
  838. FUNCTION {techreport}
  839. { output.bibitem
  840.   format.authors "author" output.check
  841.       format.date "year" output.check
  842.   new.block
  843.   format.title "title" output.check
  844.   new.block
  845.   format.tr.number output.nonnull
  846.   institution "institution" output.check
  847.   address output
  848.   new.block
  849.   note output
  850.   fin.entry
  851. }
  852.  
  853. FUNCTION {unpublished}
  854. { output.bibitem
  855.   format.authors "author" output.check
  856.   format.date "year" output.check
  857.   new.block
  858.   format.title "title" output.check
  859.   new.block
  860.   note "note" output.check
  861.   fin.entry
  862. }
  863.  
  864. FUNCTION {default.type} { misc }
  865.  
  866. MACRO {jan} {"January"}
  867.  
  868. MACRO {feb} {"February"}
  869.  
  870. MACRO {mar} {"March"}
  871.  
  872. MACRO {apr} {"April"}
  873.  
  874. MACRO {may} {"May"}
  875.  
  876. MACRO {jun} {"June"}
  877.  
  878. MACRO {jul} {"July"}
  879.  
  880. MACRO {aug} {"August"}
  881.  
  882. MACRO {sep} {"September"}
  883.  
  884. MACRO {oct} {"October"}
  885.  
  886. MACRO {nov} {"November"}
  887.  
  888. MACRO {dec} {"December"}
  889.  
  890. MACRO {acmcs} {"ACM Computing Surveys"}
  891.  
  892. MACRO {acta} {"Acta Informatica"}
  893.  
  894. MACRO {cacm} {"Communications of the ACM"}
  895.  
  896. MACRO {ibmjrd} {"IBM Journal of Research and Development"}
  897.  
  898. MACRO {ibmsj} {"IBM Systems Journal"}
  899.  
  900. MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
  901.  
  902. MACRO {ieeetc} {"IEEE Transactions on Computers"}
  903.  
  904. MACRO {ieeetcad}
  905.  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
  906.  
  907. MACRO {ipl} {"Information Processing Letters"}
  908.  
  909. MACRO {jacm} {"Journal of the ACM"}
  910.  
  911. MACRO {jcss} {"Journal of Computer and System Sciences"}
  912.  
  913. MACRO {scp} {"Science of Computer Programming"}
  914.  
  915. MACRO {sicomp} {"SIAM Journal on Computing"}
  916.  
  917. MACRO {tocs} {"ACM Transactions on Computer Systems"}
  918.  
  919. MACRO {tods} {"ACM Transactions on Database Systems"}
  920.  
  921. MACRO {tog} {"ACM Transactions on Graphics"}
  922.  
  923. MACRO {toms} {"ACM Transactions on Mathematical Software"}
  924.  
  925. MACRO {toois} {"ACM Transactions on Office Information Systems"}
  926.  
  927. MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
  928.  
  929. MACRO {tcs} {"Theoretical Computer Science"}
  930.  
  931. READ
  932.  
  933. STRINGS { longest.label }
  934.  
  935. INTEGERS { number.label longest.label.width }
  936.  
  937. FUNCTION {initialize.longest.label}
  938. { "" 'longest.label :=
  939.   #1 'number.label :=
  940.   #0 'longest.label.width :=
  941. }
  942.  
  943. FUNCTION {longest.label.pass}
  944. { number.label int.to.str$ 'label :=
  945.   number.label #1 + 'number.label :=
  946.   label width$ longest.label.width >
  947.     { label 'longest.label :=
  948.       label width$ 'longest.label.width :=
  949.     }
  950.     'skip$
  951.   if$
  952. }
  953.  
  954. EXECUTE {initialize.longest.label}
  955.  
  956. ITERATE {longest.label.pass}
  957.  
  958. FUNCTION {begin.bib}
  959. { preamble$ empty$
  960.     'skip$
  961.     { preamble$ write$ newline$ }
  962.   if$
  963.   "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
  964. }
  965.  
  966. EXECUTE {begin.bib}
  967.  
  968. EXECUTE {init.state.consts}
  969.  
  970. ITERATE {call.type$}
  971.  
  972. FUNCTION {end.bib}
  973. { newline$
  974.   "\end{thebibliography}" write$ newline$
  975. }
  976.  
  977. EXECUTE {end.bib}
  978.